SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Proc [dbo].[SP_TXMVTO_BANC_I02]      
/*--------------------------------------------------------------*/     
/*------ Empresa          : OFISIS S.A.                    -----*/    
/*------ Cliente   : OFISIS S.A.                    -----*/    
/*------ Sistema    : Contabilidad                   -----*/    
/*------ Modulo           : Empresa                        -----*/    
/*------ Programa         : Transferencia Doc. Cuentas Banc-----*/    
/*------ Script           : TXMVTO_BANC                    -----*/    
/*------ Nombre      : SP_TXMVTO_BANC_I02             -----*/     
/*------ Desarrollado por : Luz Gonzalez                   -----*/      
/*------ Fecha            : 17/10/2002                     -----*/    
/*------ Base de Datos    : MS SQL Server                  -----*/    
/*------ Version          : 7                              -----*/    
/*------ Invoca a SP      :                                -----*/    
/*--------------------------------------------------------------*/    
/*--------------------------------------------------------------*/    
/*----- Modificado 1 por : percy garcia                    -----*/    
/*----- Fecha Modifica   : 05/06/2004                      -----*/    
/*----- Detalle Modifica : usuario creacion y modif        -----*/    
/*--------------------------------------------------------------*/   
/*--------------------------------------------------------------*/    
/*------ Comentarios      :                                -----*/    
/*--------------------------------------------------------------*/    
/*--------------------------------------------------------------*/     
/*------ Drop proc SP_TXMVTO_BANC_I02                      -----*/            
/*------ Grant all on SP_TXMVTO_BANC_I02 To PUBLIC         -----*/     
/*------ SP_TXMVTO_BANC_I02 '01', 1, 1999, 2, '42101'      -----*/     
/*--------------------------------------------------------------*/     
@ISCO_EMPR         TD_VC_002,     
@ISCO_USUA	   TD_VC_008, 
@IDFE_USUA	   TD_DT_001, 
@INNU_CNTB_EMPR    TD_IN_001,    
@INNU_ANNO         TD_IN_004_ANNO,     
@ISOP_CNTA    TD_VC_001, -- T = Total, P = Parcial    
@ISCO_CNTA_INIC    TD_VC_020,     
@ISCO_CNTA_FINA    TD_VC_020    
As     
Declare      
@VSCO_OPRC_DIFE    TD_VC_003,    
@VSCO_OPRC    TD_VC_003,    
@CSCO_CNTA_EMPR    TD_VC_020,    
@CDFE_DOCU         TD_DT_001,    
@CSTI_DOCU         TD_VC_003,    
@CSNU_DOCU         TD_VC_020,    
@CSCO_MONE         TD_VC_003,    
@CNIM_MVTO_DOCU    TD_NU_016_004,    
@CSTI_OPER         TD_VC_003,    
@VNNU_CONT         TD_IN_001,    
@VSOP_CNTA    TD_VC_255    
    
If @ISOP_CNTA = 'T'    
   Select @VSOP_CNTA = ''    
Else If @ISOP_CNTA = 'P'    
   Select @VSOP_CNTA = 'And CO_CNTA_EMPR >= "' + @ISCO_CNTA_INIC + '"     
   And CO_CNTA_EMPR <= "' + @ISCO_CNTA_FINA + '"'    
    
Exec ('Declare CU_TXMVTO_BANC_I02_1 cursor    
for    
   Select CO_CNTA_EMPR, TI_DOCU, NU_DOCU, FE_DOCU, CO_MONE, IM_MVTO_DOCU, TI_OPER    
   From TXMVTO_BANC    
   Where CO_EMPR = "' + @ISCO_EMPR + '"    
   And NU_CNTB_EMPR = ' + @INNU_CNTB_EMPR + '     
   And NU_ANNO = ' + @INNU_ANNO + ' - 1     
   And ST_FLAG = "N" ' + @VSOP_CNTA )    
    
Select @VNNU_CONT = 0    
    
/*--- Borro lo que estaba antes en la tabla de Movimientos ---*/    
Exec('Delete From TXMVTO_BANC      
 Where CO_EMPR = "' + @ISCO_EMPR + '"    
   and NU_CNTB_EMPR = ' + @INNU_CNTB_EMPR + '     
   and NU_ANNO = ' + @INNU_ANNO + '    
   and NU_MESE = 0 ' + @VSOP_CNTA )    
    
open CU_TXMVTO_BANC_I02_1     
fetch CU_TXMVTO_BANC_I02_1 into @CSCO_CNTA_EMPR, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU,     
        @CSCO_MONE, @CNIM_MVTO_DOCU, @CSTI_OPER     
    
While @@Fetch_Status = 0      
Begin       
  Select @VNNU_CONT = @VNNU_CONT + 1     
  insert into TXMVTO_BANC(CO_EMPR, NU_CNTB_EMPR, NU_ANNO, NU_MESE, CO_CNTA_EMPR,            
                        NU_SECU, TI_DOCU, NU_DOCU, FE_DOCU, CO_MONE, IM_MVTO_DOCU,     
                        ST_FLAG, TI_OPER, CO_USUA_CREA, FE_USUA_CREA,     
   CO_USUA_MODI, FE_USUA_MODI,NU_ANNO_CONS, NU_MESE_CONS)       
   values(@ISCO_EMPR, @INNU_CNTB_EMPR, @INNU_ANNO, 0, @CSCO_CNTA_EMPR,            
          @VNNU_CONT, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU, @CSCO_MONE, @CNIM_MVTO_DOCU,     
          'N', @CSTI_OPER, @ISCO_USUA, GETDATE(), @IDFE_USUA, @IDFE_USUA, NULL, NULL)     
    
fetch CU_TXMVTO_BANC_I02_1 into @CSCO_CNTA_EMPR, @CSTI_DOCU, @CSNU_DOCU, @CDFE_DOCU,     
        @CSCO_MONE, @CNIM_MVTO_DOCU, @CSTI_OPER     
End     
close CU_TXMVTO_BANC_I02_1     
deallocate CU_TXMVTO_BANC_I02_1     
return     
/*------------------------------------- Fin -----------------------------------*/     
    
    
    
    
    
    
    
  
  
  
  
  
  





GO
